COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002		TITLE STUFIT
C00004 ENDMK
C⊗;
	TITLE STUFIT
	ENTRY STUFIT
STUFIT:	0		;CALL STUFIT(OUT,INPUT ARRAY,WD CNT)
	HRRZ 4,1(16)	;LOC OF ARRAY
	MOVE 1,4
	ADDI 1,4	; START WITH RIGHT HAND CHAR (5TH)
	MOVEI 6,5	;SET UP COUNTER
S6:	CAMN 6,@2(16)	;IF WDCNT=5 SKIP
	JRST STUFX
	MOVE [ASCIZ/     /]	;PUT BLANKS AT END OF ARRAY
	MOVEM @1
	SOJ 1,
	AOS @2(16)	;UP THE WD CNT AND GO BACK TO SEE IF=5
	JRST S6
STUFX:	MOVE 2,@4
	ROTC 2,7	;SHIFT IT TO LEFT 7 BITS
	AOJ 4,
   	SOJG 6,STUFX
	LSH 3,1		;SHIFT ONE MORE FOR ASCII
	MOVEM 3,@(16)	;FINAL FORM IS IN AC3
	JRA 16,3(16)
	END